unit U_ANAGIDER_YERI;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox, StdCtrls, Buttons,
  ExtCtrls, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  Menus, ADODB, siComp;

type
  TfmAnaGiderYeri = class(TForm)
    adoAnaGiderYeri: TADOTable;
    DSAnaGiderYeri: TDataSource;
    PM1: TPopupMenu;
    PM1_Ekle: TMenuItem;
    PM1_Sil: TMenuItem;
    cxgrid1: TcxGrid;
    cxgrid1DBTableView1: TcxGridDBTableView;
    cxgrid1DBTableView1KARTKODU: TcxGridDBColumn;
    cxgrid1DBTableView1ACIKLAMA: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD1: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD2: TcxGridDBColumn;
    cxgrid1DBTableView1OZELKOD3: TcxGridDBColumn;
    cxgrid1DBTableView1YETKIKOD: TcxGridDBColumn;
    cxgrid1DBTableView1AKTIF: TcxGridDBColumn;
    cxgrid1Level1: TcxGridLevel;
    pnl_Alt: TPanel;
    bKapat: TBitBtn;
    procedure bKapatClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure PM1_EkleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmAnaGiderYeri: TfmAnaGiderYeri;

implementation

uses ana1;

{$R *.dfm}

procedure TfmAnaGiderYeri.bKapatClick(Sender: TObject);
begin
 close;
end;

procedure TfmAnaGiderYeri.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
  fmAnaGiderYeri:=nil;
end;

procedure TfmAnaGiderYeri.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then close;
end;

procedure TfmAnaGiderYeri.FormCreate(Sender: TObject);
begin
  adoAnaGiderYeri.Open;  
end;

procedure TfmAnaGiderYeri.PM1_EkleClick(Sender: TObject);
begin
  adoAnaGiderYeri.Insert;  
end;

end.